-- card: 4360 from stack: in.4©
-- bmap block id: 4684
-- flags: 4000
-- background id: 2641
-- name: Menu
----- HyperTalk script -----
on opencard
  global capdata,corcapitals,corcountries
  lock screen
  put empty into capdata
  put empty into corcapitals
  put empty into corcountries
  hide cd field "Eurocapdata"
  get cd field "Eurocapdata"
  put it into capdata
  set cursor to none
  repeat with h=1 to number of card buttons
    set the hilite of cd btn h to false
  end repeat
  unlock screen
  set cursor to none
  repeat until the mouseclick
    repeat with h = 1 to number of card buttons
      set the hilite of cd btn h to true
      wait 2 seconds
      set the hilite of cd btn h to false
      if the mouseclick then
        set the hilite of cd btn h to false
        send mouseup to cd btn h
      end if
    end repeat
  end repeat
end opencard



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=87 top=80 right=136 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WorldCap Menu
----- HyperTalk script -----
on mouseUp
  go cd 1 of stack "1.WorldCap 1.4© Gateway"
end mouseUp


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=21 top=148 right=188 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Capital to Country
----- HyperTalk script -----
on mouseUp
  visual effect venetian blinds very slowly
  go to card id 5318
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=21 top=196 right=235 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Country to Capital
----- HyperTalk script -----
on mouseUp
  visual effect venetian blinds very slowly
  go to card id 2873
end mouseUp




-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=146 top=244 right=292 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  doMenu "Home"
  set the rect of this cd to 0,0,512,342
  show menubar
  show titlebar
  exit to HyperCard
end mouseUp




-- part 6 (field)
-- low flags: 84
-- high flags: 0007
-- rect: left=0 top=0 right=337 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Eurocapdata


-- part contents for card part 6
----- text -----
Albania,empty,Tirane,Tirana
Andorra,empty,Andorra,Andorra la Vella
Austria,empty,Vienna,empty
Belgium,empty,Brussels,empty
Bosnia-Hercegovina,Bosnia-Herzegovina,Sarajevo,empty
Bulgaria,empty,Sofia,empty
Byelarus,Belarus,Minsk,empty
Croatia,empty,Zagreb,empty
Czechoslovakia,empty,Prague,empty
Denmark,empty,Copenhagen,empty
Estonia,empty,Tallinn,empty
Finland,empty,Helsinki,empty
France,empty,Paris,empty
Germany,empty,Berlin,empty
Great Britain,United Kingdom,London,empty
Greece,empty,Athens,empty
Hungary,empty,Budapest,empty
Iceland,empty,Reykjavik,empty
Ireland,empty,Dublin,empty
Italy,empty,Rome,empty
Latvia,empty,Riga,empty
Liechtenstein,Lichtenstein,Vaduz,empty
Lithuania,empty,Vilnius,empty
Luxembourg,Luxemburg,Luxembourg,Luxemburg
Macedonia,empty,Skopje,empty
Malta,empty,Valletta,Valetta
Moldova,empty,Kishinev,Chisinau
Monaco,empty,Monaco,empty
Montenegro,empty,Titograd,empty
the Netherlands,Netherlands,Amsterdam,empty
Norway,empty,Oslo,empty
Poland,empty,Warsaw,empty
Portugal,empty,Lisbon,empty
Romania,Rumania,Bucharest,empty
Russia,empty,Moscow,empty
San Marino,empty,San Marino,empty
Serbia,empty,Belgrade,empty
Slovenia,empty,Ljubljana,empty
Spain,empty,Madrid,empty
Sweden,empty,Stockholm,empty
Switzerland,empty,Bern,empty
Turkey,empty,Ankara,empty
Ukraine,empty,Kyiv,Kiev
Vatican City,empty,Vatican City,empty